home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / tpdb314.zip / STATUS.PAS < prev    next >
Pascal/Delphi Source File  |  1991-01-31  |  646b  |  29 lines
  1. {$A+,B+,D-,E-,F-,I-,L-,N-,O-,R-,S-,V-}
  2. {$M 65520,0,655360}
  3. Program Status;
  4.  
  5. Uses Crt,Dos,TPDB,TPDBScrn;
  6.  
  7. VAR
  8.         CurrFile : ^DBF;
  9.  
  10. begin
  11.      CursorOff;
  12.      If ParamCount = 0 then
  13.      begin
  14.           ClrScr;
  15.           Beep;
  16.           Flash(1,1,LightRed+BlackBG,'Syntax: STATUS filename.ext');
  17.           CursorOn;
  18.           Halt(1);
  19.      end;
  20.           NEW(CurrFile,Init(ParamStr(1)));
  21.           SetDBColor(LightCyan,Black);
  22.           CurrFile^.ShowStatus;
  23.           CurrFile^.Done;
  24.           SetDBColor(Black,Black);
  25.      ClrScr;
  26.      FlashC(12,Yellow+BlackBG,'Copyright 1991 Brian Corll');
  27.      CursorON;
  28. end.
  29.